home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / PlasmaNew.AMOS / PlasmaNew.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  1.5 KB  |  64 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10. XSIZE=63
  11. YSIZE=31
  12. STP=4
  13. GGR=3
  14.  
  15.  
  16. Screen Open 0,320,256,32,Lowres
  17. Curs Off 
  18. Flash Off 
  19. Cls 0
  20. Palette 0,$F0F,$F1E,$F2D,$F3C,$F4B,$F5A,$F69,$F78,$F88,$F97,$FA6,$FB5,$FC4,$FD5,$FE6,$FF7,$FF8,$FE9,$FDA,$FCB,$FBC,$FAD,$F9E,$F8F,$F7F,$F6F,$F5F,$F4F,$F3F,$F2F,$F1F
  21.  
  22. For Y=0 To YSIZE Step STP
  23.    For X=0 To XSIZE Step STP
  24.       Ink Rnd(31)
  25.       Bar X,Y To X+STP,Y+STP
  26.       Inc CNT
  27.    Next 
  28. Next 
  29.  
  30. For N=0 To GGR
  31.    For X=0 To XSIZE
  32.       For Y=0 To YSIZE
  33.          
  34.          P1=Point(X-1,Y-1)
  35.          P2=Point(X,Y-1)
  36.          P3=Point(X+1,Y-1)
  37.          P4=Point(X+1,Y)
  38.          P5=Point(X+1,Y+1)
  39.          P6=Point(X,Y+1)
  40.          P7=Point(X-1,Y+1)
  41.          P8=Point(X-1,Y)
  42.          
  43.          P9=Point(X-2,Y-2)
  44.          P10=Point(X,Y-2)
  45.          P11=Point(X+2,Y-2)
  46.          P12=Point(X+2,Y)
  47.          P13=Point(X+2,Y+2)
  48.          P14=Point(X,Y+2)
  49.          P15=Point(X-2,Y+2)
  50.          P16=Point(X-2,Y)
  51.          
  52.          P17=Point(X,Y)
  53.          
  54.          P=(P1+P2+P3+P4+P5+P6+P7+P8+P9+P10+P11+P12+P13+P14+P15+P16+P17*4)/20
  55.          
  56.          If P<1 Then P=1
  57.          If P>31 Then P=31
  58.          Ink P
  59.          
  60.          Plot X,Y,P
  61.          
  62.       Next 
  63.    Next 
  64. Next